/* Copyright 2001,2002,2003 NAH6
 * All Rights Reserved
 *
 * Parts Copyright DoD, Parts Copyright Starium
 *
 */
#include "main.h"
#include "setarray.h"

/**************************************************************************
*
* ROUTINE
*               SetArray
*
* FUNCTION
*               initialize a real array to a real value
*
* SYNOPSIS
*               SetArray(n, v, a)
*
*   formal 
*
*                       data    I/O
*       name            type    type    function
*       -------------------------------------------------------------------
*       n               int	i       dimension of array
*       v               float	i       initialization value
*       a[n]            float	i/o     array
*
**************************************************************************/
void SetArray(
int 	n,
float	v,
float 	a[])
{
  int i;

  for (i = 0; i < n; i++)
    a[i] = v;
}
